home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / PhonepakV2_d1.adf / rexx / NoFax.ppak < prev    next >
Text File  |  1993-04-28  |  1KB  |  33 lines
  1. /************************************************************************/
  2. /* This is a simple script to demonstrate the use of an ARexx menu host.*/
  3. /* First, open the demo system on the PhonePak Switchboard and set the  */
  4. /* ARexx menu host to "MenuPort" using the System/Set ARexx Menu Host   */
  5. /* menu item.  Close the Switchboard, choosing the Save option of the   */
  6. /* "Save Changes" requester.  Then, run this program (rx NoFax.ppak) and*/
  7. /* use local access mode to start the demo system.  Pressing #8 will    */
  8. /* give you an error message, thereby preventing faxes from being       */
  9. /* received.  Of course, if you really wanted to disable fax reception, */
  10. /* you would also have to turn AUTOFAXX off in LineMan.                 */
  11. /************************************************************************/
  12.  
  13. addlib("libs:rexxsupport.library",0,-30,0)
  14. menuport = openport('MenuPort')
  15.  
  16. do forever
  17.     r=0
  18.     do until r
  19.         r=waitpkt('MenuPort')
  20.         end
  21.  
  22.     packet = getpkt('MenuPort')
  23.     arg = getarg(packet,0)
  24.  
  25.     parse var arg menu line mailbox entry
  26.  
  27.     if menu = MESSAGEEDIT & entry = 8 then
  28.         reply(packet,2)
  29.     else
  30.         reply(packet,0)
  31.  
  32.     end
  33.